function d=rango(Het,largo,w,configuracion)
    H=1;
    min1=inf;
    max1=0;
    
    
    if configuracion==0
        for k=1:largo
            configuracion(k)=k;
        end
    end
    
    for k=1:largo
        
        H=H*Het(configuracion(k));
        [MAG]=bode(H,w);
       
       
        maxaux=max(MAG);
        minaux=min(MAG);
        
        if maxaux>max1
            max1=maxaux;
        end
        
        if minaux<min1
            min1=minaux;
        end
        
    end
    
    d=max1/min1-1;

end